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MANCHET 
MANCH 



DESENHE LETRAS 



LINHA POR LINHA 



ALTURA E LARGURA 





DESENHE SEU PROPRIO 



TlPO DE LETRA 



Alem de blocos grcificos e do conjunto 
de caracteres do computador, 
existem outros recursos que podem ser 
utilizados na cria^ao de letras. 
Este artigo mostra lim deles. 



Os dois tipos de letra criados pdo 
programa do artigo Mancheles e Lelrei- 
ros (pagina 912) sio conslruidos a par- 
tir de blocos graficos ou do conjunto de 
caracicres-padrSo da maquina. Mas ha 
um oulro meio de criar letras: usando 
graficos de alta resolu?ao para dese- 
nh^-las, linha por linha. 

O programa que se segue funciona 
de modo semelhante ao dos blocos grS- 
ficos. Cada ielra e definida por uma se- 
rie de dados alocados em uma insCrU9ao 
DATA, que informam ao computador 
como ela serd. Essa informafao e arma- 
zenada em uma matriz, e k possive! dar 
eniraJa as palavras que se quer escrever 
na forma de um cordao alfanumerko. 
Como antes, as letras sao monladas con- 
forme as instrucoes enconlradas e exi- 
bidas na tela. Mais tarde, voce apren- 
dera a usar essas Leias como parte de 
seus prdprios program as. 



UM TlPO A SEU GOSTO 



Os graficos de alta resoluijao facili- 
tam enormemente a tarefa de criar o seu 
tipo de lelra preferido. Isso acontece 
porque a expansao dos caracteres da 
ROM t iimitada k duplica^ao da attura 
ou da largura dos caracteres. Ora, as le- 
tras constituidas por blocos graficos es- 
tao complelamente fixadas devido aos 
numeros das linhas DATA. 

Por outio lado, os dados no nosso 
programa tambem fixam a maneira co- 
mo a letra vai ser desenhada (0 L, por 
exemplo, e formado de uma linha ver- 
tical e uma horizontal). Mas essas ins- 
trufoes sa.0 relalivas e nao decerminam 
a aparencia fioal das lelras. Pense em 
cada letra como se ela estivesse encer- 
rada dentro de uma caixa imagin^a. Se 
a caixa i alta e estreita, temos uma le- 
tra alta e estreita; sc ela for babta e lar- 
ga, assim seri a letra. O programa e es- 




crito de tal forma que e possivel definir 
essas variiveis- com fatores cfe escala. 
Agora digite o programa... 



10 POKE 23656,8 

20 DIM N(26}: DIM A(26.L2.2) 

30 FOB N-1 TO 26 

40 READ N (N) 

50 FOn M-l TO N{N) 

60 READ A(N,M,1] ,A(N,M,Z) 

70 NEXT rt 

80 NEXT N 
JOO INPUT "INTB0DU2A UMA PALAU 
RA". LINE AS; 7F AS'"" THEN 
GOTO 100 



110 INPUT "DIGITE FATOR X" ,X 

120 INPUT "DIGITE FATOH K",X 

125 CLS 

13fi FOB N=l TO LEN AS 

MO LET TS = AS(N) : IF TS<"A" OH 

T$>"Z" THEN NEXT N: GOTO 100 

150 PLOT tI0'(N-l)*X)+X*A(CODE 

T5-55,l,l) ,20+Y"A(C0DE TS-55.J 

,23 

160 FOB M-2 TO N(CODE T5-55) 

170 DRAW ){*A(CODE TS-55.M.i).Y 

*A(CODE TS-!^5.M.2) 

180 NEXT M 

190 NEXT N 

200 GOTO 100 

1000 DATA 8.0.0,5,1.1,4.0.1,-1, 

0.-5.0.3.-6.0 

1010 DATA 12.0.0.0.6,5.0.1,-1,0 

.-1,-1.-1,-5,0.5,0.1.-1.0.-1.-1 





IIIIIIIIIIHBL 


76 PROGRAMACAO BASIC 76 


■ ■■■■■llllllll 


.-1.-5,0 


200 IF 1NKEX3-"" THEN 200 


130 J-{10*(N-1)*X)+X*A( (ASC(T3) 


1020 DATA 8.6,1.-1,-1.-4.0.-1,1 


210 GOTO 80 


-64) ,1,1) :K-10*y«AC{ASC{T5)-64) 


.0.4.1,1,4.0.1.-1 


1000 DATA 9,0,6,0,-5,1.-1,4,0.1 


.1.2) 


1030 DATA 7,0,0.0.6.4.0.2,-2.0, 


,1,0.3.0.2,0,-3.-6.0 


140 FOE M-'2 TO N (ASC (TS) -64) 


-2.-2.-2.-4.0 


1010 DATA 12.0.0.0.6.5,0.1,-1.0 


150 F-X*A((ASC(TS)-54) .M.l> 


1040 DATA 7,6.0.-6.0,0.6.6,0.-6 


,-1.-1.-1,-5,0,5,0,1,-1.0,-1,-1 


160 G-V*A( (ASC(TSl-64) .M.2) 


.0,0.-3.5.0 


.-1.-5,0 


170 LINE (J,K)-{,I+F.K+G> 


lO&O DATA 6.0,0.0,^.6.0,-6.0.0, 


1020 DATA 8,6.1,-1.-1,-4,0,-1,1 


180 J-J+F:K-K+G 


-3.5.0 


,0.4.1,1.4.0.1.-1 


190 NEXT M 


1060 DATA 10.5.2,1.0.0,-1.-1.-1 


1030 DATA 7,0.0.0,6,4.0.2,-2.0. 


195 NEXT N 


.-4.0.-1.1.0,4.1.1.4,0,1.-1 


-2.-2,-2,-4,0 


200 IF TNKEYS-"' THEN 200 


1070 DATA 6,0.0.0.6,0.-3,6.0,0, 


1040 DATA 7.6.0.-6.0,0.6.6,0,-6 


210 GOTO 80 


3.0.-6 


,0.0.-3.5.0 


1000 DATA 9,0.6,0,-5,1,-1,4.0,1 


loao DATA 5,0.0.6.0,-3.0.0.6,-3 


1050 DATA 7,0.0.6,0.-6,0.0.3.5. 


,1,0,3,0,2,0,-3,-6.0 


.0,6.0 


0.-5.0.0.3 


1010 DATA 12,0,0.0,6,5.0,1,-1,0 


1090 DATA 5,0,1,1.-1,4.0,1.1.0, 


1060 DATA 10.7,1,-1,-1.-4.0.-1. 


,-1,-1,-1,-5.0.5.0,1.-1.0,-1,-1 


5 


1.0,4,1,1,4.0.1.-1,0,-1,-1.0 


.-1.-5.0 


1100 DATA 6,0.0,0,6,0,-3,6.3.-6 


1070 DATA 6,0.0,0,6,0.-3,6,0.0, 


1020 DATA 8,6.1.-1.-1.-4.0,-1,1 


.-2.f>.-3 


3.0,-6 


.0,4.1,1,4.0,1.-1 


1110 DATA 3,6,0.-6,0,0,6 


1080 DATA 6,0,0,6,0.-3,0,0,6.-3 


1030 DATA 7.0.0.0.6.4.0.2.-2.0, 


IIZO DATA 5,0,0,0,6.3,-3.3.3.0, 


,0,6.0 


-Z. -2. -2. -4.0 


-6 


1090 DATA 7.0.0,6.0.-3,0.0.5.-1 


1040 DATA 7.6,0,-6.0,0,6.6,0,-6 


1130 DATA 4.0.0.0,6.6.-6.0,6 


,1,'1.0.-1.-1 


.0.0,-3,5,0 


1140 DATA 9.1,0,-1,1.0,4,1,1.4. 


1100 DATA 6.0.0,0.6,0.-3,6.3.-6 


1050 DATA 7.0.0,6,0,-6.0,0.3.5, 


0.1. -1 .0. -4.-1.-1 .-4.0 


,-3.6,-3 


0.-5.0.0.3 


1150 DATA 7.0. 0,0. 6. 5. 0.1. -1.0. 


1110 DATA 3.0.0,0,6,6.0 


1060 DATA 10,7,1,-1,-1,-4.0,-1. 


-1,-1.-1.-5.0 


1120 DATA 5.0.6,0,-6,3.3.3,-3,0 


1,0,4.1,1,4.0.1.-1.0,-1,-1.0 


1160 DATA 9.4.2.2.-2.-5.0.-1.1, 


.6 


1070 DATA 6,0,0,0.6.0.-3.6.0,0. 


0.4,1.1.4.0,1.-1,0,-5 


1130 DATA 4,0.6.0.-6.6.6.0,-6 


3,0.-6 


1170 DATA 9,0,0.0.6.5.0,2.-1.0, 


1140 DATA 9.1,0,-1.1.0,4.1,1.4, 


1080 DATA 6.0,0.6.0.-3.0.0.6.-3 


-1.-1,-1.-5.0.4.0.2,-3 


0.1. -1 .0.-4,-1.-1.-4,0 


.0,6.0 


1180 DATA 12. O.J .1,-1.4,0.1,1,0 


1150 DATA 7.0,6.0,-6,5,0,1,1.0, 


1090 DATA 7,0,0,6,0,-3.0,0,5,-1 


,1,-1,1.-4,0,-1.1.0,1.1.1.4.0.1 


1.-1.1.-5.0 


,1,-1,0,-1,-1 


.-1 


1160 DATA 11,5,0.-4.0,-1.1.0,4, 


JlOO DATA 6.0,0.0.6,0,-3,6,3.-6 


1190 DATA 4.3,0.0,6.-3,0,6,0 


1,1,4,0,1,-1.-2,-1,2,1,0.-4.-1, 


,-3,6.-3 


1200 DATA 6,0.6.0.-5,1,-1,4.0.1 


-1 


1110 DATA 3,0.0.0.6,6,0 


.1.0,5 


1170 DATA 9,0,6.0.-6,5.0,1,1,0, 


1120 DATA 5.0,6.0,-6.3.3.3.-3.0 


1210 DATA 3.0.6,3,-6.3.6 


1.-1,1.-5.0,4,0,2.3 


.6 


1220 DATA 5.0,6.1.-6.2.3.2.-3.1 


liaO DATA 12,6,1,-1,-1,-4,0,-1, 


1130 DATA 4,0,5.0,-6,6,5,0.-6 


.6 


1,0.1. '1,1. 4. 0,1. 1,0, 1.-1.1,-4,0 


1140 DATA 9,1.0.-1.1.0.4.1.1.4. 


1230 DATA 5,0.0.6.5.-3,-3.-3.3. 


.-l.-l 


0.1,-1,0,-4,-1.-1.-4.0 


6,-6 


1190 DATA 4.3,6,0.-6.-3.0.6.0 


1150 DATA 7.0.6.0.-6.5,0.1.1.0. 


1240 DATA 5.3.0.0,3,-3.3,3.-3.3 


1200 DATA 6.0,0.0.5.1,1.4.0,1.- 


1.-1,1.-5,0 


,3 


1.0.-5 


1160 DATA 11.5,0.-4,0.-1.1.0.4, 


1250 DATA 4.6.0,-6,0.6.6,-6.0 


1210 DATA 3.0,0,3.6.3,-6 


1.1.4,0,1,-1.-2.-1.2.1,0.-4,-1, 




1220 DATA 5.0,0,1.6.2,-3.2,3,1, 


-1 


kM 


-6 

1230 DATA 5.0.0.6.6.-3,-3,-3.3, 


1170 DATA 9.0.6.0.-6.5,0.1,1,0, 
1.-1.1,-5.0,4.0.2.3 


10 PHODE 1,1:PCLS 

20 DIM N(26).A(26.13.2) 


6.-6 

1240 DATA 5.3.6.0.-3,-3.-3.3,3, 

3,-3 


1180 DATA 12.6,1,-1.-1.-4.0,-1, 
3.0,1,1,1,4,0.1,1.0,1,-1,1.-4,0 


30 FOR H-1 TO 26 
40 READ K(M) 


1250 DATA 4.0,0,6,0.-6,6.6,0 


.-1,-1 

1190 DATA 4.3.6,0,-6,-3,0.6,0 


50 FOR M-1 TO N(N) 


f^ 


1200 DATA 6,0,0,0.5,1,1.4.0,1,- 


60 READ A(N.M.1>.ACH,H.2) 


1.0.-5 


70 NEXT M.N 


ID SCREEN 


1210 DATA 3.0.0.3.6,3,-6 


BO CLS: INPUT" INTRODUZA A PALAVH 


20 DIH N(26) .A(26.12,2) 


1220 DATA 5.0.0,1.6.2.-3.2.3,1. 


A -jASirF A3-"" THEN GOTO SO 


30 FOR N-1 TO 26 


-6 


90 IMPUT'QUAL FATOB X ";X 


40 READ N(N) 


1230 DATA 5,0.0.6,6.-3,-3,-3.3. 


100 INPUT"QUAL FATOR Y ";Y 


50 FOR M-1 TO N(N) 


6. -6 


HO CLS:PCLS.SCREEH 1 . : FOR N-1 


60 READ A(N,H,1} ,A(N,Mi2} 


1240 DATA 5.3.6,0.-3.-3.-3,3,3. 


TO LENCAS) 


70 NEXT M 


3,-3 


120 TS-MIDS(AS,N,1) :1F TS<"A" 


75 NEXT N 


1250 DATA 4,0,0,6.0,-6.6.6.0 


R TS>"Z" THEN NEXT N:GOTO 80 


ao INPUT' Introduza a palivra' [h 


a_ ^ 


130 J-(10»'(N-l)*X)i-X*A((ASC{T3) 


S 


-64) ,1,1] :K-10*K»'AtASC(TS)-64.1 


90 INPUT" introduza a escala 6o 




.2) 


x-'.X 


5 LOMEM: 16384 


140 FOB M-2 TO N tASC (T3D -64) 


100 INPUT" introduza a eacala do 


10 HOME : HGH : HCOLOF- 3 


150 r-X*A((ASC(TS)-64) ,M.l) 


y";V 


20 DIM N{2e) .A(26.12.2} 


160 G-V"A{CASC(TS)-64) .M.2) 


110 SCREEN 2 


30 FOR N - 1 TO 26 


170 LrNE{J.KJ-{J+F,fl+K) ,PSET 


115 FOR N-1 TO LEN<AS) 


40 READ N[H) 


180 J-J*F:K-K+a 


120 TS-MID3{AS.N. 1) :IF TS<"A- 


50 FOR M ■ 1 TO N(N) 


H 190 NEXT M.N 


R T3>"2"THEN GOTO BO 


60 READ A(H,M.l} .A(N.H.2] 










70 NEXT M: NEXT N 

75 HOME : HOR 

80 VTAB 22: INPUT "THTBODUZA A 

PALAVRA -;A3: IF AS - "" THEN 

GOTO 80 
90 INPUT "OUAL FATOB X? ":X 
100 TfJPUT "QUAL FATOH 7? 'iV 

HO FOB N - .1 TO LEN (AS) 
120 TS " rtltJS (AS.M.l): IF T5 
< 'A" OB T5 > "Z" THEN NEXT N) 

GOTO RO 
130 J - (10 « (N - 1) « X) + X 
• A(( A9C (TS) - 64) ,1.1) :K • 1 
+ K * A( A3C (TS) - «4 ,1, 2) 
140 FOB M - 2 TO N( ASC <TS> - 

6<) 
150 F - X * A({ ASC (T3) - 64) , 
M.l) 

160 G - S • A( ( ASC (TS) " 64) . 
M,2) 

170 HPLOT J.K TO J + F.C! + K 
lBOJ-J+F:K-K+a 
190 NEXT M; NEXT N 
200 GET BS 
210 GOTO 75 

1000 DATA 9, 0.6. 0,-5. I, -1,4,0 
.1.1. 0.3. 0.2. 0.-3. -6.0 
1010 DATA 12.0,0.0,6.5.0,1.-1 
.0.-1.-1.-1.-5.0.5,0.1.-1.0.-1, 
-1,-1,-5,0 

1020 DATA 6.6,1,-1,-1,-4,0,-1 
.1,0,4,],1,4,(}.1,-1 
10 30 DATA 7.0,0.0.6.4,0.2.-2. 
0.-2.-2.-2.-1.0 

1040 DATA 7.6,0,-6.0,0,6,6.0. 
-6.0.0.-3.5.0 



1050 DATA 7.0,0.6,0.-6.0.0.3. 

5,0,-5,0,0.3 

1060 DATA 10,7,1,-1,-1.-4,0.- 

1,1.0,4,1. 1.4,0.1,-1.0,-1,-1,0 

1070 DATA 6.0,0.0,6.0,-3.6,0. 

0.3.0.-6 

1080 DATA 6.0.0.6.0. -3. 0.0. 6. 

-3.0.6.0 

1090 DATA 7.0,0,6,0,-3.0.0,5, 

-1,1,-1,0,-1,-1 

1100 DATA 6,O,0.O.6iO.-3.6,3, 

-6,-3.6,-3 

1110 DATA 3,0.0.0,6.6.0 

U ;^ I>ATA ?> . n . 6 . , -6 . .1 . 3 . 3 . ■■ 3 

,0.6 

11.30 DATA 4.0,6.0. -6,6.6,0, -ft 

1 1,40 DATA 9, 1,0,-] ,1 .n.l.l , 1 , 

4.0,1 .-1,0.-4,-] .-I .-4,0 

1150 DATA 7.0,6.0.-6,5.0.1,1, 

O.l.-I.l.-S,0 

1160 DATA 11 ,S. 0.-4, 0,-1 .1.0. 

4,1.1.4,0,1,-1,-2.-1.2,1.0.-4.- 

1,-1 

U70 DATA 9,0.6,0,-6,5.0.1 . 1 . 

0,1,-1,1.-5,0,4,0,2,3 

1180 DATA 12,6,1,-1,-1,-4,0,- 

1.1.0.1.1,1,4,0,1,1,0,1,-1.1,-4 

,0.-1.-1 

1 190 DATA 4,3,6.0.-6.-3.0.6.0 

1200 DATA 6,0,0.0,5.1,1,4.0.1 

,-1.0.-5 

1210 DATA 3,0,0,3.6,3,-6 

1220 DATA 5,0,0.1,6.2,-3,2.3, 

1,-6 

1230 DATA 5.0.0,6.6.-3.-3,-3, 



3.6,-6 

124 DATA 5,3,6.0,-3,-3.-3.3, 

3.3.-1 

1250 DATA 4, 0.0. 6. 0.-6, 6. 6.0 

Os programas aqui apresentados pa- 
ra as diferenies linhas d« microcompu- 
tadores sSo muito semelhanlcs etitre si, 
Em lodos eles vamos encomrar 26 de- 
clarafSes DATA, uma para cada letra 
do alfabeto. Essas declaragoes conl&m 
uma s^rie de niimeros que dizem ao 
computador como dcscnhar a letra, uti- 
lizando pequenas linhas, 

O primeiro niimcfo da lista di o to- 
tal de linhas que entram na composi?3o 
de cada letra — umL, porexemplo. rc- 
quer menos iinhas que urn S. O niimcro 
m^imo usado € doze. 

Os niimeros seguintes sSo arranjados 
em pares, dando as coordenadas x e y 
de cada pequena se?ao da linha, Como 
ji foi dito, tais mitneros s5o relativos; 
assim, as linhas que serao efeiivamcnte 
descnhadas dcpendem de facorcs de es- 
cala, O primeiro par de niimeros espe- 
cifica o ponto de inJcio da letra dentro 
de nossa caixa imaginina. 

Os niimeros contidos nas instrucScs 
DATA do programa %&o lidos para duas 
malrizes, N e A. A 6 uma mairiz tridi- 
mensionEili de 26 (niimero de letras) por 
1 2 {niimero miximo de linhas) por 2 {ve- , 
tores X e y). 



COMO ESCOLHEfi UM CORDAO 



As linhas que perm item a entrada de 
palavras sao semelhanles ks do progra- 
ma do arligo Manchetes e Lelreiros. 
Elasverificam a entrada paraevitar um 
cordao nulo; nao existe. neste caso. ne- 
nhum limite para o numero de caracie- 
res utilizados. 

Em seguida, o programa pede dois 
valores — um fator X e um fator V. Es- 
ses valores delerminam as reais dimen- 
soesdecada letia. Grosso modo, aes- 
cala 1 represenla o tamanho padrao do 
caractere; 2 fornece altura ou largura 
dupla, enquamo 0.5. por sua vez, ofe- 
rece metade do tamanho. Para valores 
menores que a unidade, podem-se ob- 
ter efeitos estranhos. Uma vez que o 
computador nao pode tra^ar uma fra- 
1^0 de pixel, ele t obrigado a desenhar 
pixel todo. Letras com um maior nu- 
mero de linhas apresentam mais facili- 
dade para que isso ocorra. Desse modo. 
um S, por exemplo, pode lerminar 
maior quando comparado com um T. 

Se atribuinnos difcrentes valores para 
cada fator, poderemos produzir interes- 
santes variacfles nos caracteres, criando 
assim leiras altas e magras, baixas e gor- 
das etc. 

Como nao existe limite para o tama- 
nho do cordao, e necessirio tomar to- 
do o cuidado no sentido de que o ni)- 
mero de ietras n3o ullrapasse as dimen- 
soes da tela. Quando isso ocorre, o com- 
putador emite uma mensagem de erro. 

O cdlculo de quanios caracteres ca- 
bem na tela para cada fator de escala t 
relativamcnte simples. Note que o valor 
imporiante e o fator X, que determina 
a [argura da lelra. Se voc& tivef um fa- 
tor X igual a 2, s6 poder^ colocar a me- 
tade do que seria possivel com o fator 
I. Com um fator 4, caberi apenas 1/4 
dos caracteres. 



ANALISE CORDAO 



Assim como os outros programas que 
criavam letras. este usa um laigo para ve- 
rificar cada caraclere do cordao. No 
Spectrum ele comefa na linha 130; no 
TRS-Color, na linha HO. 

O programa continua de maneira si- 
milar ao gerador de caracteres anterior, 
montando um cordao T$ exatamente 
igual ao cordao original. Ao mesmo 
tempo, ele verifica se o caractere i uma 
letra de A a Z; qualquer outro caracte- 
re ^ traiado como se fosse um espajo. 
Se nao for, o computador executar^ um 
NEXT para fazer avangar o lafo 
FOR.. .NEXT. Se nao houver mais le- 



tras, o programa voltari para que voce 
possa dar entrada a mais palavras. 



A ROTINA DE DESENHO 



Quando o computador encontra uma 
letra no cordao, vai para a linha 150 (no 
Spectrum), que dS ini'cio i rotina de de- 
senho. Nos outros computadorcs ela es- 
t^ na linha 1 70. O conteiido dessa linha, 
porem, difere de computador para com- 
putador, pois cada um deles tenl um ta- 
manho diferente de tela e conta com co- 
mandos distintos para desenhar em al- 
ta resolueao. 

A base para a rotina, entretanto, t a 
mesma para todos ob micros. A variS- 
vel de conlrole para la^o 
FOR.. .NEXT, N. i usada como um 
guia para a coordenada x da posi95o ini- 
cial; a ela sao adicJonados dois valores 
pelo computador. O primeiro i um va- 
lor relativo — a coordenada para dese- 
nho da matriz A — , enquanio o scgun- 
do e um valor que leva em conta o ta- 
manho da tela e os fatores de escala. 

Voce jd viu que um dos trcs elemen- 
tos dessa matriz e usado para separar os 
detalhes das coordenadas x e y. Os ou- 
tros dois elemenlos formam cada uma 
das 26 letras do alfabelo com ate 24 nu- 
meros (lembre-se de que doze e o nume- 
ro mlximo de linhas usadas por letra). 
A matriz N diz ao computador quantas 
linhas devem ser empregadas na defini- 
tao de cada letra. Assim, quando 
computador vai desenhar o caractere A, 
par exemplo, ele verifica inicialmente 
quantas linhas devem ser tra^adas na 
matriz N. Esse niimcro controla o lafo 
para desenhar a quantidade exata de li- 
nhas de cada letra. 

Os valores dos nimeros contidos em 
A, a matriz principal do programa (tri- 
dimensional), equivalem ao cidigo de 
caractere de cada letra menos 64 — es- 
ta e a razao pela qual as linhas 130 a 180 
contcm expressoes como ASC(TS)-64 ou 
CODE T$-64 ou A-64. Isso significa que 
o computador pode tomar o c6digo de 
uma letra e usd-lo para contar linhas de 
desenho. Os valores relatives para x e 
y guardados na matriz sao entao multi- 
plicados pelo fator de escala que voc& 
escolheu e passados para os comandos 
de desenho. 

Assim que acaba de desenhar uma le- 
tra, computador passa para a seguin- 
te (caso haja) no cordao e o processo 
continua. Se as letras acabarem, o com- 
putador volta para a linha 80 (no Spec- 
trum) ou lOO (nos outros micros) para 
que se possa entrar um novo cordao. Os 
microcomputadores das linhas TR-Color 
e MSX esperam que voce tecle alguma 




Eis aqjui as lrl§ v«r§5es para novas 
letras no Spectrum. 

coisa antes, visto que a tela de alta re- 
soluf ao tern que ser apagada para dar 
lugar ^ tela de tcxto. 



DESENHE SUAS PROPfllAS LETRAS 



Voce ja viu tres exempJos de tipos de 
letra. Inspirando-se neles, crie k vonta- 
de seus pr6prios caracteres. Os caracte- 
res da ROM s6 podem ser expandidos, 
mas nada impede que as rotinas expan- 
soras sejam utilizadas para trabalhar 
com seus caracteres redefinidos — uma 
explica^ao de como isso pode ser feito 
foi dada anteriormente no artigo Con- 
junto de Blocos Grdficos (\). a pagina 
526. 

As variances com os outrOs dois me- 
todos sao praticamente infinitas: voce 
pode desenhar seus pr6prios caracteres 
a partir de blocos grificos e guardi-los 
era uma matriz, como no programa do 
artigo Mancheies e Lelreiros. Se nao es- 
tiver satisfeito com o resultado, tente re- 
desenhar ludo. Outra opcao consiste em 
alterar a aparSncia das letras deste arti- 
go. modificando os valores das linhas 
DATA. 



USE OS NOVOS CARACTERES 



Nao 6 dificill criar letras maiores pa- 
ra serem mostradas na tela; mas, a nao 
ser que se possa usa-las em algum pro- 
grama, nao ha grande vantagem em se 
fazer isso. Se voce optar pelas letras cria- 
das neste programa ou no anterior, pro- 
cure empregti-las em seus proprios pro- 
gramas . 

Isso pode ser feito de varias manei- 
ras . A mais comum incorpora o progra- 
ma gerador de letras como uma sub^ro- 
lina do seu programa e chama-o sempre 
que for necess^rio, 

Se voce quiser usar o expansor de ca- 
racteres, essa seri provavelmente a me- 
Ihor solucao. Mas, para o programa 
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Allerando-fie os falores X e V, us lelras 
podem ser irasadai) em (tualquer taniHDho. 

atual, ela esti longe de ser razoSvel, uma 
vez que o programa loma muito espaco 
da memdria e pouco sobra para seu prd- 
prio programa. 

Como voce verd em seguida, esse 
problema pode ser resolvido de varias 
maneiras: [odas elas utilizam o progra- 
ma para desenhar as letras, que sao ar- 
mazenadas de modo a estar disponiveis 
para uso posterior. 



ARMAZENAGEM DOS DESENHOS 



Uma dessas maneiras consisie em ar- 
mazenar seus desenhos em grAficos 
UDG. Isso i fdcil de fazer no TRS- 
Color, ja que este possui o comando 
GET. que guarda o que estd na tela. 
Embora com maiores dificuldades, o 
mesmo efeilo pode ser obtido, em ou- 
tros computadorcs, por mcio do coman- 
do POKE. 

£ possivel ainda gravar a parte da 
memdria que contfim os grdficos, como 
urn bloco de cbdigo de miquina. Mais 
tarde, pt>de-se carregar toda a (ela de 
voita para a memdria. Entretanto, en- 
quanto ela esliver na memdria do micro, 
i preciso protege-la, colocando-a acima 
ou abaixo do BASIC (para maiores de- 
talhes, veja o artigo da pdgina 526). 
Uma vez na mem6ria, ela esti em con- 
di(;5es de &er utilizada. 

A melhor maneira de fazer isso 6 es- 
crever uma retina para ler o cbdigo da 
drea protegida da RAM e passA-lo para 
a drea de tela; ou, ainda, alterar o apon- 
tador do conjunto de caracleres, de mo- 
de que seu c6digo se transforme em vi- 
nos caracteres que poderao ser impres- 
sos. A retina para mover o bloco de c6- 
digo da RAM para a drea de tela seria 
algo como: 

1000 FOR X-1 TO (COMPBIMENTO DO 
BLOCO DE CODIGO) 
1010 POKE (ENDEKECO DE TNICIO D 
A MEMOHIA DE TELA)+X.PEEK CENDE 
RECO DE INICIO DO BLOCO DE CODI 
COJ+X 
1020 MEXT X 



As tela.v mostram as tamanhos normal, 
cxtrH-largo e exlra-slto. 

Esta, por^m, nao h a melhor solucao 
para o problema, uma vez que levaria 
longo tempo para ser conclu£da. A difi- 
culdade, felizmente^ pode ser contorna- 
da por meio de uma rotina em lingua- 
gem de miquina que se encarregue de 
executar esse trabalho. 



COMO GRAVAR A TELA 



Uma solmpao aJternativa consiste em 
gravar a tela e carregi-la junlamente 
com o programa. Nesse case, o desenho 
permaneceria na tela ati^ que voce se de- 

cidisse a apagd-lo. Na maioria dos mi- 
crocomputadores, esta consliiui, sem 
diivida, a melhor op^ao, 



O Spectrum tern um comando espe- 
cial que permite gravar em fita uma te- 
la grafica com grande facilidade. O de- 
senho h, gravado como um bloco de me- 
mdria — processo descrito nas paginas 
574 e 575; neste caso. por6m. nao 6 ne- 
cessdrio especificar o endereco inicial e 
o tamanho do bloco. Basta usar 
SCREENS logo apds o nome de arqui- 
vo. Digitado no raodo direto. esse co- 
mando grava uma figura com o nome 
"pic". 

SAUE "plc" SCHEEN3 

Para carregar a figura: 

LOAD "■ SCREENS 

Pode-se, porexemplo, usar a tela co- 
mo titulo para um jogo. Carrega-se pri- 
meiro a tela e a seguir o programa. As- 
sim, ela ficarS visivel enquanto o pro- 
grama estiver sendo carregado: 

10 LOAD ■" SCBEEN5 
20 LOAD "JOGO" 

Grave agora com o comando: 

SAUE "-CAHHEG" LINEIO 

de modo que eie serd executado automa- 
ticamente. O jogo serd gravado com 



O BASIC 6 muito lento e eu n&o 
gosto de programar «m cddigo de 
mdquina. Tenho outras op^des? 

Existe uma famdJa de linguagens 
que. diflamos, estao "a meio cami- 
nho", Eias sao compiladas, e nSo inier- 
pretadas- Como vimos anteriomiente, 
que toma tempo no BASIC 6 a irnar- 
pretaqSo de cada comando toda vez 
que o programa 6 rodado. 

As linguagens compiladas usam um 
outro tipo de programa — parecido 
com OS Assembler empregados na pro- 
gramaijao em c6diQo de mfiquina — 
que convene a linguagem de alto nivel 
para cddigo de m^quina. A&sim. depois 
da compilagao, estaremios rodando um 
programa em c6digo de mSquina, e nSo 
em Imgusgem de alto nivel. 



SAVE "JOGO" LINEIO 

de modo que ele sera executado automa- 
ticamente tamb^m, E imponante lem- 
brar que os programas tern que ser gra- 
vados na ordem correta na fita. 



Para gravar uma tela em fita. utilize 

comando; 

CSAVEM'noaeariauive' . 1S36. 7679. 
35725 

Os primeiros dois mimeros sao os en- 
dere^os inicial e final da drea de grafi- 
cos (pagina 1 de qualquer PMODE. a 
nao ser que se lenha um drive). 
CLOADM serve para carregar a figura 
de volia para a memdria. 

Essa tela gravada pode ser usada co- 
mo uma pagina-titulo para um jogo; pa- 
ra isso. t preciso adicionar uma rotina 
de carregamento no inicio: 

1 PMODEl.l :PCLS:SCREEN1,0 

2 CLOADM 

3 FOR D-1 TO 1000 -.NEXT 

e ceriificar-se de que a figura sera gra- 
vada logo apds o jogo. Isso funcionard 
enquanto o programa nao reduzir o mi- 
mero de pAginas gr^ficas disponiveis ini- 
cialmente (neste caso. a figura poderia 
sobrepor-se ao programa). 
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CANETAS 
OPTICAS 



EspdcJe muJto particular de ponteiro 
elfltrdnico, as can&tas 6pticas 
servam para fazer gr^ficos na tela e 
para selacionar itens de urn 
menu. Veja como trabalhar com alas. 



Comunicar-se com um computador 
geralmcnte significa recorrer ao tcclado 
para digitar informafOes. Esta, por^m, 
nSo e 3 unica forma de comunica^flo 
com a m^quina. Al^m dela, existe uma 
sine de mi^odos alternativos, Provavcl- 
meme, o primeiro lugar dcssa sine per- 
tence ao joystick, que pode ser usado 
tamo em jogos como em aplica?6es mais 
"serias". Ouiro m^todo igualmente ba- 
raio e que apresenta nitida vantagem 6 
da caneta optica, 

As canetas 6pticas, como o pr6prio 
nome sugere, tSm grande semelhan?a 
com uma caneia comum, pois funcio- 
nam com base em movimentos de "de- 
senhar" ou de apontar para coisas so- 
bre a tela. Como sSo capazes de detec- 
car o ponto da tela para o qual estEio sen- 
do apontadas, elas t6m uma enorme s6- 
rie dc aplicaffles potenciais, como, por 
excmpio. selecionar Uens de um menu 
mostrado na tela e acionar as funfSes 
de um programa. Caso fosse utilizar o 
leciado em situai;6es como essas, o usud- 
rio seria obrigado a afastar os othos da 
tela e prcssionar uma ou mais leclas. 
Com uma caneta bptica, por6m, tudo fl- 
ea bem mais rSpido e simples: basia 
apontar para a opcSo- 



APLICACOES 



As canetas 6pticas sSo panicularmen- 
(e apropriadas para aquelas aplicacSes 
em que o usu^rio precisa localizar rapi- 
damcnie pontes cspalhados pela tela, 
como quando deseja entrar as coorde- 
nadas de um ou mais pontos, colocar 
uma marca, desenhar uma reta, selecio- 
nar um menu etc. 

Precisas, rSpidas e de fdcil manipu- 
la?ao, as canetas 6pticas sc prestam mui- 
to bem a aplicafSes grificas. Nesse ti- 
po de aplica?ao, o emprego das teclas 
para conirole do cursor grdfico (ou, pior 
ainda, a utiliza(:So das teclas num^ricas 
para entrar coordenadas) impltcaria 
num lento e laborioso processo. ii com 
uma caneta 6piica pode-se desenhar li- 
teralmente k mao livre: vocfi Ira^a ape- 
nas OS coniornos com a caneta, e o re- 
suliado aparece diretamente na tela. Ou- 
tra t^cnica consiste em compor um de- 
senho, usando a caneta para apomar pa- 




ra um menu com simbolos grdticos, co- 
res, sombrcados etc. 

A caneta Optica mostra-se tamb^m de 
grande valia em programas de apiica- 
COes mais serias, como processamcnio 
de textos, ou contabilidadc (do tipo 
"vocS obtim que vS"). Isso significa 
que, em vcz de entrar instrugoes pelo te- 
clado, elas sSo entradas por internn^dio 
de uma caneta bptica que aponta para 
as Dpfdes disponlveis. 



At6 recentemente, programas aplica- 
tivos que empregassem canetas opticas 
eram desenvolvidos pclos prbprios usu4- 
rios. Atualmente, com o crescenle inte- 
resse por esses perifiricos. algumas em- 
presas produtoras de software jd cst5o 
oferecendo programas que usam espe- 
cificamente a caneia 6plica. 

Alguns programas "artfsticos" ou de 
projeto por computador possibiliiam a 
cria§3o de desenhos k base de figuras 
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P£RIFERICOS /pi 
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UMA ALTERNATIVA 



PARA TECLADO 



QUE SE POPE FAZER 

COM UMA CANETA OPTICA? 

COMOFUNCIONA 



SENSIBILIDADE 

- RESOLU CAO ALTA OU BAIXA? 
ESCOLHA UMA CANETA QpfJCA 

CQMPATIBILIDADE 

OUTROS PROBLEMAS 



geom^tricas (retas.circulos, eiipsesetc), 
que podem ser preenchidas com cores. 
Muitos desses programas permitem tam- 
bem o uso de canetas Opticas para dese- 
nhos k mio livre sobre a tela. Com e!es 
i possivei elaborar trabalhos complexes 
e criativos. 

Esse processo funciona da seguinte 
forma: um dos programas uiiliza a ca- 
ncta 6puca para definir simbolos ou ca- 
racieres grdficos. Um segundo progra- 



ma aproveila esses simbolos em proje- 
los mais complexes. Aqui, a caneta op- 
tica oferece nitidas vaniagens sobre ou- 
[ror. metodos de entrada grifica e de se- 
letao de opfoes. 

SA e possivei encomrar no mercado 
jogos que recorrem a caneias opticas pa- 
ra que o jogador transporte figuras de 
um ponio para outro da lela. O xadrez 
e outros jogos de labuleiro sao bons 
'exemplos desse emprego. 

Palavras cruzadas, jogos de cartas, 
labirintos e quebra-cabecas variados 
completam o quadro de atividades lii- 
dlcas em que as canetas 6pticas t€m fun- 
goes importanles. Essas fua^oes sao ex- 
tensivas a jogos de avenluras, em que o 
jogador pode apontar para os objetos 
que deseja apanhar ou levar. 

As canetas bpticas podem ainda as- 
sumir formas espedais, como o rifle 6p- 
tico que serve para centrar a mira em al- 
vos na tela. Esse rifle ja existe lanto em 
micros domesticos quanlo em certos vi- 
deogames. Estd, portanlo. especifica- 
mente vottado para jogos, 



COMO FUNCIONA A CANETA OPTICA 



Uma caneta 6ptica ^ usada basica- 
mente para detectar ponlos luminosos 
presentes na tela por meio de um foto- 
detector. Quando ela ^ apontada para 
alguma locacao na tela, ocorre um tra- 
balho conjunto emre os circuitos eletro- 
nicos de detec?ao na caneta e o softwa- 
re carregado no compuiador; o objeti- 
vo desse trabalho e calcular as coorde- 
nadas do ponto para o qual a caneta es- 
td sendo apontada. 

Uma das i^cnicas desse processo ba- 
seia-se no modo como a imagem & pro- 
duzida em um cinesc6pio, tubo de TV 
ou monitor. O feixe de el^trons que 
bombardeia a tela i movimeniado de 
forma a deslocar um pequeno ponto de 
luz sobre ela em um padrao que vai da 
esquerda para a direita e de cima para 
baixo. Esse padrSo tern cerca de seiscen- 
tas linhas de varredura, repetidas a ca- 
da 1/60 de segundo, Con:io a varredura 
€ muito rSpida, o olho humano percebe 
apenas uma imagem estivel. 

A caneta 6ptica tem na ponta um mi- 
niisculo sensor fotoelitrico (normalmen- 



te, um diodo ou transistor sensivel a luz) 
que detecta o pontinho de iuz quando 
esle paasa em seu foco. Um sinal eidri- 
co e eniao produzido, amplificado e 
iransmilido para o computador. Este. 
por sua vez, t que conlrola o movimen- 
to de varredura e, por isso, consegue cal- 
cular as coordenadas do ponto. com ba- 
se no tempo que o feixe de eleirons leva 
para partir do lopo e chegar ao ponto 
de deteccao. 

As canetas opticas variam segundo o 
tipo de sensor luminoso empregado, on- 
de ele e colocado e onde se localizam os 
circuitos eletronicos associados; ou, ain- 
da. conforme permitam ou nao diferen- 
les modos operacionais. Ale mesmo a 
maneira pela qua! mostram que o sinal 
foi detectado serve para diferenciar os 
varios tipos de caneta optica. Finalmen- 
te, como nao poderia deixar de ser, elas 
sao classificadas de acordo com o mo- 
delo de compuiador com o qua! sao 
compativeis. 

Todos esses fatores afetam o prego 
e o desempenho da caneta Optica, bem 
como suas caracteristicas operacionais. 
Denire estas. as principals sao a sensi- 
bilidade e a resolu^aa. 



SENSIBILIDADE 



A sensibilidade de uma caneta opti- 
ca revela a gama de intensidades lumi- 
nosas que ela e capaz de detectar na te- 
la. As melhores canetas captam todas ou 
quase todas as cores exibidas. As de 
qualidade inferior detectam apenas as 
cores mais brilhantes ou as intensidades 
mais fortes. Paramuitas apUcafoes. is- 
so seri mais do que suficiente, embora 
imponha uma severa limitagao na flexi- 
bilidade de uso, particularmente em 
apiica?5es grdficas, onde o fundo € nor- 
malmente escuro. 

Um problema freqiiente com as ca- 
netas 6pticas e a chamada deiecgao es- 
piiria. Esta ocorre quando a sensibilida- 
de e muito aumentada pela excessiva 
ampIificagSo do sinal proveniente do 
sensQr de luminosidade. Esse aumento 
amplia a probabilidade de a caneta 6p- 
tica ser ativada por outras fontes de luz, 
tais como reflexos na tela ou a pri^pria 
luz ambiente. 
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Para enfrentar esse probleraa, as ca- 
nelas bpticas s3o equipadas com meca- 
nismos destinados a impedir a ocorren- 
cia de detec^oes cspiirias, Esses meca- 
lusmos podem ser consiitufdos, por 
otempio, de cilulas fotocl^tricas e filtros 
de Iiiz em proporcOes lais que se com- 
binem com as caracierfsticas de cor do 
ponto na tela. AI6m disso, podem ser 
usados filtros eietrSnicos para assegurar 
que a luz provenha realmente da tela (e 
nao dc uma fonte externa). Isso t pos- 
sivel porque os pontes na tela oscilam 
com uma freqiiSncia caracterfsticfi {ses- 
senta vezes por segundo). Assim. um cir- 
cuito detrflnico simples (chamado "fil- 
tro passa-alto") i usado para selecionar 
apenas a luz que pisca com essa fre- 
qilencia. 



CANETAS DE ALTA RESOLUCAO 



Uma vez que os problemas da sensi- 
bilidade e da detec^So espuria lenham 
sido tecnicamente resolvidos, uma im- 
portante consideragSo adicional a fazer 
pode ser a resoluc^o. Esta diz respeito 
^ ^ea minima na tela que a caneta ^ ca- 
paz de deteclar, que varia desde um lini- 
co pixel na tela, nas melhores canetas 
dpticas, ate um grupo inteiro de carac- 
teres. nas piores. 

A resolufSo de uma caneta depende 
do sensor que ela usa. da velocidade de 
rea^ao e do m^iodo de colimagao, ou de 
colegao da luz. Algumas canetas 6pti- 
cas utilizam um tube negro opaco para 
canalizar a luz at^ o sensor; outras em- 
pregam um sistema de lentes, ou peda- 
fos curtos de fibra 6ptica. A alra reso- 
lufao e importante se se quer desenhar 
com a pena, e nao somente detectar po- 
sifoes. Uma caneta 6ptica com uma boa 
colimagao conseguir^ discriminar um 
ponto mcnoT, e, conseqiientemente, se- 
rd mais acurada. 

Os modelos de canetas 6pticas dife- 
rem quanto k quantidade e qualidade da 
documenlai;ao e do software que as 
acompanham. Para funcionarem a con- 
tento. elas devem contar com um bom 
suporte por parte de retinas de softwa- 
re. A programagao i razoavelmente sim- 
ples, qualquer que seja o tipo de caneta 
ou de computador ao qual ela estd Itga- 
da. Alguns fabricantes adicionam uma 
fita cassete ou disco com alguns progra- 
mas de exemplo, enquanto ouiros ape- 
nas fornecem listagens de rolinas. 



COMO ESCOLHER UMA CANETA OPTICA 



Hd vdrios fatores a considerar na ho- 
ra de se escollier uma caneta dptica. Por 



exemplo, a precisao da caneta. Embora 
algumas canetas tenham uma alta reso- 
lu?ao nominal, isso nao quer dizer que 
elas sejam capazes de conscrvar a pre- 
cts3o por muito tempo. Algumas cane- 
tas dpticas sSo tSo imprecisas que uma 
reta tracada com elas sobre o video apa- 
recerS como uma s^rie aleat6ria de pon- 
tos acesos e apagados. 



Geraimente, o pre?o desse perifdrico 
^ proporcional k qualidade. AJguns dos 
mais caros, por exemplo, tem dois dis- 
positivos de que nao falamos ainda: o 
primeiro serve para anunciar que a ca- 
neta detectou um ponto de luz vilido na 
tela; o segundo controia o sinal a ser en- 
viado ao computador. 

Um diodo emissor de luz (LED) 6 um 
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equipamenlo usado em aigumas canetas 
para indicar se houve deteccao correta: 
ele n3o € essencial para desenhar, mas 
pode ser litU quando se usa a caneta pa- 
ra escolher op?6es na tela ou delectar 
posiijoes. 

O controle do sinal € normalmente 
exercido por um boiao ou um interrup- 
tor, situado quase sempre no corpo da 



caneta, ao qual o usudrio recorre quan- 
do quer enviar a informa^ao ao cOrtlpu- 
tador. Ele pode ser acionado com duas 
finalidades: para reduzir a chance de de- 
tecfoes falsas ou espurias, e para ler 
mais controle sobre que leituras devem 
ser feitas pela caneta. 

Exislem vdrios Upos de interruptorcs: 
nos modelos mais sofisticados, eles po- 




dem tomar a forma de um pequeno con- 
tato na ponta da caneta, de lal maneira 
que esta serd ativada assim que for en- 
costada na tela. 



COMPATtBILlDADE 



Antes de comprar uma caneta Opti- 
ca, conv^m testar se ela funcionari com 
o seu tipo de computador. Como acon- 
tece com muitos outros perif^ricos, as 
canetas 6pticas costumam funcionar 
apenas quando ligadas ao computador 
para o qual foram feitas. 

Aigumas vezes, voce poderi resolver 
esse problema adquirindo uma interfa- 
ce especial para o seu computador. 

NSo se esquega de que esse perif^ri- 
co precisa de software para funcionar: 
se voce comprar uma caneta dptica que 
nao sirva especificameme para o seu mi- 
cro, provavelmente passari por maus 
momentos, tentando descobrir como ela 
funciona. 



PROBLEMAS COM CANETAS OPTICAS 



A limpeza e um item essencial para 
a manulencao das canetas 6pticas. Co- 
mo elas trabalham com luz em intensi- 
dades muito baixas, qualquer sujeira na 
ponta da caneta ou na tela tende a in- 
terferir no sinal luminoso deieaado. Pa- 
ra evitar esse tipo de problema, limpe re- 
gularmente a caneta de seu mjcro com 
um produto de limpeza semelhante ao 
usado para gravadores. 
• Outro problema peculiar das canetas 
opticas i que a sua proximidade tende 
a obscurecer uma parte da tela. Esse in- 
conveniente, por^m, so se tornar^ real- 
mente grave se a tela estiver coberta de 
informa9oes. 

Antes de comprar uma caneta 6pti- 
ca, assegure-se de que nenhum outro pe- 
rifMco — como joysticks e tabletes di- 
gitalizadores — e mais apropriado para 
o que pretende fazer. Nao se esque^a de 
que usar utna caneta 6ptica por longo 
tempo pode ser muito desconforidvel, 
devido k posiv3o vertical for^ada em que 
ela dieve ser mantida. 

O mercado de micros tem se caracte- 
rizado por um forte crescimento no em- 
prego de aplicacOes em que o usu^o de- 
ve interagir com a tela. Essa tendencia 
provocari ■certamente a disseminapao 
das canetas 6pticas. Com isso, seu pre- 
90 tender^ a baixar, e os programas ca- 
pazes de utilizd-las se multiplicarao. Pa- 
ra o usudrio que est& procurando um 
acessirio barato e diferente para seu 
micro. "a caneta 6ptica pode ser, assim, 
a aquisi(;ao ideal. 
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:elere 
bus progra 



Vocft prefere programar em BASIC, mas 
laments a morosidade do computador em 
executar cartas tarefas? NSo desanim^. 
Como ver^ neste artigo, existsm virlas 
manairas da acalarar 3eus programas. 



A princfpio, todos os computadores 
parecem cxtremamcntc ripidos, execu- 
tando ntim piscar de olhos tarefas que 
consumiriam muita£ horas de urn ser hu- 
mano. Mas. ao escrcver um jogo de 
agao, um programa que contenha mui- 
tos c&lculu^ ou at^ mesmo uma ordena- 
fSo complicada usando o BASIC, o 
usu^io comeca a se decepcionar. Real- 
mentc a mdquina demora para executar 
certas tarefas, e, depois dc alguma ex- 
periencia, i provSvel que vocfi tamMm 
acabe reclamando de sua lentidaa... 

Os programas mais rdpidos sSo OS es- 
critos cm c6digo de mdquina ou em lin- 
guageni Assembly, mas muitas pessoas 
opiam pela facilidade da programaijao 
em BASIC. Um programa em BASIC. 
por^m, nunca lerS a mesma veloctdade 
de execu?So dc um programa em c6di- 
go de m^quina. pois o computador gasta 
muito tempo traduzindo-o. O computa- 
dor tcm, ji embutido como parte de seu 
hardware, um programa especial — o 
inierprelador — .responsdvel pelaHradu- 
i;ao do BASIC para c<3digo de maquina. 

Para os que nao querem ou nao gos- 
tam de escrever programas em codigo de 
miquiria, mas ainda assim dSo impor- 



l4ncla i velocidade e desejam extrair o 
mSximo dc rapidez do BASIC, temos al- 
gumas dicas. t. importanie, cm primei- 
ro lugar, tcntar cstruiurar os programas 
adequadamenle. Depois, deve-se selc- 
cionar os elcmenlos do BASIC que o in- 
terpretador leva menos tempo para tra- 
duzir. de modo que cada linha de pro- 
grama opere com velocidade maxima. 
Cada mdquina lem suas pr(3prias li- 
miiafSes e, em conseqiiSncia, cada pro- 
grama requer um tratamento especifico. 
Assim, nao cxistem regras prdiicas que 
garantam a elaboracao de programas 
pcrfeitos, mas, observando-se algumas 
recorrendafSes, serd posslvel torn^-los 
bem mais eficientes. 



CRONOMETRAGEM DO BASIC 



Quase lodas as linhas de microcom- 
putadores possucm urn temporizador in- 
terno que pode ser utilitado para com- 
parar a velocidade de execuc3o de pro- 
gramas. A rolina abaixo. que usaremos 
com exemplos dados mais adiante. per- 
mitir^ que voce observe as diferencas de 
velocidade existentes entre as varias Tor- 
mas de programai;ao em BASIC. Os 



usuirios do Apple prccisarSo recorrer a 
um cron6metro auxiliar de m3o para fa- 
zer as comparacScs, pois os computa- 
dores dcssa linha nao disp6cm dc tem- 
porizador interna. 



1 POKE 23672,0: POKE 23673,0 

: POKE 23674.0 
100 REM tmer 
120 FOB i"l TO 100 
130 GOStJB 200: NEXT i 
140 LET b-PEEK 23672+Z55«PEEK 
23673+65536*PEEK 2J674 
150 PBINT AT 5,5i (b-4l)/5!-MIL 
ISEGUNIX)S' 
160 3T0P 
200 REM 
500 RETURN 



100 TIME-0 

110 FORK-lTO600:GOSUB200;NEXT 

120 T-TIME-t-lO 

130 CLS:PniNTUSING" TEMPO USADO 

-t».(l« SEGUNDO3';T/60 
140 END 
200 REM 
1000 RETURN 





t. 
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VELOCIDADE DE EXECU CAO 
EM PROGRAMAS BASIC 



CRONOMETRAGEM DOS 



COMANDOS 



RELA CAO ENTRE ESTRUTURA, 



_ MEMORIA E VEIOCIDADE 

A RMAZENAG E M DAS VAR lAVElS 

func Qhs MATEMATICAS 

MULTIPLiCACAO E DIVISAQ 

ORPENA CAO E 8USCA 



II 



10 REH <USE UH CRONOMETRO 

20 REH PARA MEDIB TEMPO> 

100 KOKE 

110 PRINT CHOS (7) 

120 PRINT : PRINT •INICIO* 

130 FOR K - 1 TO 500 

140 OOSUB 200 

150 NEXT 

160 PRINT CHR9 (7) 

170 PRINT : PRINT "FIM" 

180 END 

200 REM 

1000 RETURN 



Ml 



100 TIMEB-0 

110 FOB K-1 TO 600:O0aUB 200:NE 

XT 

120 T-TIHER-170 

130 CLS: PRINT" TEMPO USADO - ": 

T/60i'8EOUNDOS" 

140 END 

200 REM 

1000 RETURN 

Em lodos OS programas, o comjindo 
REM da linha 200 sera ;iubstiluido, mais 
larde, pelo nosso teste. No programa do 
Spectrum, esse comando aparece tam- 



him na linha 100. devendo ali perma- 
necer, jJl que faz parte da calibracilo do 
tcmporizador interno. 



ESTRUTURA 



Como a csiniluracio do programa 
dcsempenha um papel fundamenlal na 

vdocidade de sua execucSo, convtm re- 
capilular aqui algumas regras Msicas, 

Todas as sub-rotinas usadas com 
mais freqiiSncia devem ser posicionadas 
no inicio do programa. ja que o intcr- 
pretador procura cada linha requisila- 
da por um GOSUB a pariir do comcco 
da Ijstagem. Assim, quanta menor for 
niimero da Hnha de uma sub-rotina, 
mais depressa ela serd enconirada pelo 
inierpretador. Voc& pode argumenlar 
que um atraso de milissegundos nSo al- 
tera nada no programa. Mas a econo- 
mia de alguns milissegundos aqui e ali 
acabari fazendo uma boa diferenca- 

Existem programas mal elahorados. 
que nao passam de um emaranhado de 
comandos GOTO usados indiscrimina- 
daraente. Esse tipo de programa — as ve- 
zes charaado de "programa-espaguete" 



— , alim de ser de diffcil comprecnsSo. 

perde muito na velocidade de cxecucao. 
Ao conlrArio. quando a disposicio das 
rotinas i bcm planejada. a cxccucao do 
programa lorna-se bem mais rdpida. 



meniOria e velocidade 



Comumcntc, os programas mais cur- 
ios s3o tambcm os mais ripidos. Portm, 
OS irSs objciivos do programador — ve- 
locidade, clarcza e economiade memo- 
ria — quase scmpre estao em confliio. 
O uso de varios comandos numa so li- 
nha, por exemplo, economiza memoria 
e acelera o programa, mas dificuha sua 
compreensao c evenluais corre?ocs. 

Uih programa que Irabaiha com ve- 
locidade maxima geralmcme 6 mais loo- 
go e utiliza mais mcmotia, A maioria 
das iccnicas para se economizar memo- 
ria traz prejuizo para a velocidade. £ o 
ca.so do emprego de sub-rotinas. 
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Nas matrijes. comece com o 
bdice e nio com 1. 



DICAS PARA ACELERAR SEU BASIC 



Defina ss matrizes no intcio 
de cada programs. 



Ei[2][^fK'<^ 



Se Dossfvel, use vari^veis mteiras em 
vez de varldvers de ponto flutuante. 



m 



Nos la^os FOR. ..NEXT, nao coloque uma 
variivel depois do NEXT. 



Use variiveis no lugar de numeros. 



HTUM] 



D6 nomes curtos ts variSvais. 



DliJMIM' 



Coloque as sub-rotinas de uso mais 
freqiiente no comedo do programa. 



ia[X][^F^ 



Use la-jos FOfl...NEXT no lugar 
de la^os do tipo: 

100 LET X-X+1 ; IF X<20 THEN 
GOTO 100 



iD[l][S]F^ 



Numere as linhas com numeros 

mais baixos. Comece na iJnha 1 em vez 

de comepar na linha 1000. 



iii[S][^fK'<i 



Use rotinas em cddigo de m^quina 
sempre que for posstvel. Torne-se um 
cO'lecionador de sub-rotinas publicadas. 



iDHJEarK^ 



Nos programas voltados para c^lculos. 
procure definir uma funpao que execute 

05 cilculas repetitivos, Por exefnplo: 
10 DEF FN A{X)-X-[lNT<X/360)* 
360) 

ZO LET NUMEBO-FN A (NIIMEBO) 

6 bem meinor qua: 

10 IF NUMERO>360 THEN LET MUHER 
0=NUMEBO-360r GOTO 10 



Habitue-se a plenejar seus programas. 
AI6m de erros. vocS evitarS comandos 
GOTO e GOSUB desnecessflrios, que s6 
comprometem a velocidade de execugao. 



laaii^r^ 



Sub-rotinas ecorromizam mem6rpa 
mas diminuem a rapidez do programa. 



ioaiEir).^ 



Remova todos os denominadores 

comuns. Por exempio, troque: 

10 LET X'Y/inO+Z/iOtI 

por 

10 LET X-C(*ZJ/100 



aiEi^^ 



Evite usar tomandos GOTO sempre que 
posslvel. 



iDHlE]^^ 



Procure utilizar wSrios comaridOS na 
mesma linha. Perde-se em clarezfl, 
mas ganha-SB em velocidade b economla. 



iDaiiMjr)^ 



Remova todos os espapos em branco e 
comandos REM desnecess^rios. 



iDSif^r)^ 



Ao usar um IF. ..THEN, coloque primeiro 
a condicao que mais tende a ser FALSA. 



iaa][^^'<^ 



Elas asseguram uma razoavcl econo- 
mia de mcmoria mas chamd-las toma 
tempo. que nao agrada aos programa- 
dores que buscam velocidade de execu- 
^ao. Como vimos anteriormente, o uso 
de sub-rotinas exige certo cuidado com 
a estrutura^ao do programa. Sem isso, 
i impossivel recuperar a velocidade que 
se perde ao chama-las. 

Uma linha como LETA = VAL"100" 
exemplifies bem a contradi^ao que exis- 
te entre velocidade e economia de me- 
mdria. Essa forma economiza mem6ria, 
sem duvida, mas , por outro !ado, e de 
lenta execucao se for comparada a for- 
ma mais comum LET A = 100. 



VARIAVEIS 



Saber como as varidveis sao armaze- 
nadas na membria pode ser de grande 
utilidade para quern pretende actJerar a 
cxecucao de programas. As variaveis sao 
criadas a medida que aparecem no pro* 
gama, sendo possivel limpar a regiao em 
que se situam por meio dos comandos 
RUN ou CLEAR. Na maiorla dos ca- 
S05. uma nova varidvel provoca a am- 
pliai^ao dessa regiao para cima — o que 
nao se aplica ao Sinclair Spectrum, que 
trabalha com as variaveis de uma ma- 
neira diferenie. 

Se criarmos, por exempio, uma va- 
ridvel-cadeia e, depois, uma matriz nu- 
m^rica, todas as variaveis que se segui- 
rem a malriz precisarao ser deslocadas 
para a parte superior da memiria quan- 
do se acrescencar algo a cadeia. 

Observe esle programa: 

100 LET T3-"" 

110 DIM A(IODO) 

120 LET TS-TS+"ACELEBAE- 

No BASIC da maioria dos micros, 
muito tempo de execu^ao sersa econo- 
raizado se invertessemos a ordem das 
duas primeiras linhas, ousej a, se a ma- 
triz fosse dimensionada antes de se de- 
finir a cadeia. Como esti, o programa 
faz com que 5000 byies sejam desloca- 
dos cada vez que se adiciona a palavra 
"ACELERAR" k variivel-cadeia TS- 
Os usudrios do Spectrum nao precisam 
se preocupar, pois, como foi dito, esse 
micro trabalha com as varidveis de uma 
maneira diferente, nSo apresentando es- 
se tipo de problema. 

O uso de variivel no lugar de niirac- 
ros cambdm assegura uma considerdvel 
economia de tempo. Essa regra aplica- 
se a todos os micros, menos ao Spec- 
trum. No Apple, por exempio, cada va- 
riivel economiza cerca de cinco a dez 
milissegundos, Pode nao parecer muito. 
mas imagine o que isso significa quan- 



do se lida com um la^o que i executado 
virias vezes. Ja no Spectrum OGorre o 
opo&io: a execufao de um comando 
LETC = 10 + lOlevatr^smilissegun- 
dos, enquanto a de LET C = D + D 
(onde D = 10) leva 4,2 milissegundos.. 



FUNCOES MATEMATICAS 



Use a rotina apresentada anterior- 
mente — que passaremos a chamar 
"cronomeEro" — para testar estas duas 
formas de se obter a fun9ao pot6ncia. 

200 LET C-4*A*4*< 

ou, entto: 

200 LET C'4~A 

£ de se esperar que a funf ao poten- 
cia propria da m^quina seja a mais rd- 
pida das duas, No Spectrum, por exem- 
plo, a primeira forma leva seis milisse- 
gundos, e a SiCgunda, 1 M milissegundos. 
Estamos novamente diante de um case 
em que a economia de mem6ria (ofere- 
cida pela segunda forma) est^ em con- 
flito com a velocidade. 

Algumas vezes, lembramos que, no 
Spectrum, linhas do tipo 

210 IF X>y THEN LET Y-Y+1 
220 IF X<V THEM LET Y=t-l 

sao exccuiadas com maior velocidad'C 
quando subsiituidas por 

10 LET y = y + (x>y) - (x<y) 

O BASIC da Sitiha Sinclair realmen- 
te permiie esse tipo de comparafao e 
programar assim e, sem diivida, mais 
elegante. Mas, usando nossa rotina-cro- 
nometro, podemos observar que a linha 
dupla e mais rapida que a simples. 

Se voce usa oulro micro, teste o equi- 
valenle em sua maquina. 

210 IF x>y THEN y-y+1 

220 IF X<Y THEH Y-Y-l 

OU 

210 y-x+(it<«)-<x>y) 

Forne?a, em cada caso, valores cabi- 
veis para X e Y. 



MULTIPLICACAO E DIVISAO 



As expressBes C = D*0.5 e C = D/2 

executam exatamente o mcsmo cdlculo, 
mas, como mostram os testes, a multi- 
pUcacao e mais rdpida que a divisao. 
Faca um teste com as sugestoes apre- 
sertadas a seguir e tome nota dos resul- 
tados para refer^neias futuras. 



200 LET C-10+10 

200 LET C-D+D (ONDE D-10) 

200 LET C-10"10 

200 LET C-10/10 

200 LET C-IO+PI 

200 LET C-SIN 10 

200 LET C-COS 10 

200 LET C-TWl 10 

200 LET C-UAL "lO" 

200 LET C-10 

200 LET C-D (ONDE ti-10) 

200 PRINT AT !1.0j'TESTE' 

200 PRINT AT 21.0sAS (AS-TESTE) 

200 PRINT AT 21.0; 10+1000+500■^ 

5.5 
200 PRINT AT 21 , :D-i-K+F+0 (ON- 
DE D-i0,E+lO00,ETC) 



fffi 



200 C-10+10 

200 C-D+D (onde D-10) 

200 C-10*10 

200 C-10,/10 

200 C-IO+PI 

200 C-SIN{10) 

200 c-cosao) 

200 C-TAN{10) 

200 C-VALC"10') 

200 C-10 

200 C=D {onde D-10) 

200 PRINT-TESTE' 

200 PRINT AS (onde A$-"TESTE-) 

200 PRINT 10+1000+500+5.5 

200 PRINT D+E+F+G (onde D-10,E 

-1000, etc) 



HD[S] 



200 C-IO+ID 

200 C=D+D (ONDE D=10) 

200 C-10"10 

200 C-10/10 

200 C-IO+PI 

200 C-S1N(10> 

200 C-COS(IO) 

200 C-TAN(10> 

200 C=UAL('10'] 

200 C-10 

200 C-D (ONDE D-10) 

200 PHINT'TESTE- 

200 PRINTAS (ONDE AS-"TESTE") 

200 PRINT ].0+]000+500+5.5 

200 PRINT D+E+F+G (ONDE D-IO.E 

-1000. ETC) 



D 



200 C-10+10 

200 C-D+D (ONDE D-10) 

200 C-10*10 

200 C-10/10 

200 C-IO+PI 

200 C-SIN(IO) 

200 C-COSCIO) 

200 C-TAH{10) 

200 C-VALC-IO") 

200 C-10 

200 C-D (ONDE D-10) 

200 PRINT 8260, 'TESTE" 

200 PRINT «260,AS (AS""TESTE") 



200 PHIHT e260.10+lQOO+500+S.5 
200 PRINT 8260. D+E+F+G (ONDE D 
-10, E-IOOO, ETC) 



OflDENACAO E 6USCA 



Como as t^cnicas de ordena^ao j^ fo- 
ram tema de artigos anteriores, nao en- 
trareraos aqui em maiores detaihes. Co- 
mo vimos, a ordenacao tipo Shell-Men- 
ner 6 a mais indicada quando se trata de 
manipulai um niimero de itens superior 
a cem, Esse tipo de ordenai;3o tern a ca- 
racteristica de ser tanto mais rapido 
quanto maior for o numero de itens. Po- 
rim, como era de se esperar. lambim 
nesse caso a velocidade envolve certo sa- 
criflcio de memriria. 

Ao comrdrio do que muitos pensam, 
ordenagio e busca nio sao a mesma coi- 
sa. Buscar i acessar um dado (ou um 
conjunto de dados) o mais rapidamen- 
te possivel; ordenar i colocar virios da- 
dos em ordem. Suponhamos que voce 
precise encontrar o teiefone de carta pes- 
soa em uma lista armazenada no com- 
putador. Ora. nao haveria vantag'^m ne- 
nhuraa se o tempo gasio pelo computa- 
dor para encoiitfar tal numero fosse 
maior que o tempo necessario para 
acha-lo numa lista telefonica. Por isso, 
quando se trata de ordenar ou buscar, 
sempre sc procura o metodo mais 
rapido. 

A busca serial (listada a seguir) Simu- 
la o procedimenio de uma pessoa que 
procura determinado dado analisando 
item por item de uma lisia. 



10 DATA "ANTIL0PE"."CACHOBRO" 

,"ELEFANTE"',"C.O[;.FIHHO","JUMEN 

TO- ."LEOPABDO" . "MACACO" ,■ PERI 

QUITO- , "RAPOSA- . "SAPO" 

20 RESTORE 10: DIM BS(10,9) 

30 CLS : FOR i-l TO 10: HEAD 

BS(i) : PRINT AT 1,5;BS(1) : 

NEXT 1 

40 POKE 23658.8: INPUT "Qual 

o animal ?" ; AS 

50 FOR X-J TO 10 

60 IF ftS(X, TO LEN A3)=A3 

THEN PRINT FLASH ;AT X.13i 

"-; FLASH 1:" ACHEI-: GOTO 40 

70 NEXT X 



m 



10 REM <buBca 8erial> 

20 DIM BS (lOJ 

30 CLS:FOHI-lT010:nEADBS(l) rLOC 

ATE0,I+3:PBINTB5(I) :NEXT 

40 LOCATE0,i7:INPtfT'Qual a anm 

al- iAS 

50 FORX-ITOIO 

60 IF BS(X)-AS THEN L0CATE13,X+ 

3:PHINT'<:< ACHEI":X-10 

70 NEXT:GOT040 




so DATA ANTILOPE.CACHOREIO.ELEFA 
NTE , GOLFINHO , JUMENTO , LEOPAHDO , M 
ACACO , PEBIQUITO, RAPOSA , SAPO 



aiLS] 



10 HEM <BUSCA SEBIAL> 

20 DIM BS(IO) 

30 HOME : rOB I - 1 TO JO 

35 HEAD BSCDr PHIOT TAB ( 11) 

:BS(i) 

40 NEXT : PHINT : PRINT 

45 INPUT "QUAL O ANIMAL ?" ;AS 

50 FOR X - 1 TO 10 

60 IF B9CX) = AS THEN UTAB (X 

): PBINT "ACHEJ »-:X = 10 

70 NEXT ■ UTAB (13): GOTO 45 

80 DATA ANTILOPE.CACHOBBO.ELE 

FANTE, GOLFINHO,. JUMENTO. LEOPAHDO 

.MACACO. PEBIQUITO. BAPOSA, SAPO 



a 



F 



10 REM BUBCA SERIAL 

20 DIM BSCIO) 

30 CLS:FOB I-l TO 10:BEM) B9(I) 

:PflIMT •33+1-32, BS(1) iiNEXT 

40 PRINT §417.3TRIN03(30,32) ;ST 

RINGS (30, B) ; :INPUT'OUAL O ANIHA 

L "iAS 

50 FOB X-1 TO 10 

60 IF B3(X)-AS THEN PHINT e46+K 

•32.CHRS{191) i"ACHEI-j :K-10 

70 NEXT;GOTO 40 

SO DATA ANTILOPE.CACHORHO.ELEFA 

NTE .GOLFINHO , JUMENTO. LEOPAHDO , M 

ACACO . PERIQUITO , RAPOSA, SAPO 

A roiina de busca binaria (listada a 
segtiir), um pouco raais dificil de se pro- 
gramar que a de busca serial, e bem mais 
rapida que esia. A diferenija de veloci- 
dade entre ambas lorna-se maior ^ me- 
dida que a quantidade de dados da lisia 
aumenta. 

A busca binaria c mais rapida que a 
serial porque nao uliliza processo de 
inspecao item por item. Ela requer que 
todos OS dados lenham sido previamenie 
colocados em ordem alfabetica ou nu- 
merica. Cumprido esse pre-requisito, o 
compuiador analisa o elemenlo central 
da lista, para definir se se orientarS pa- 
ra sua meiade superior ou para sua me- 
lade inferior. 

A mctadc escolhida seri novamente 
dividida ao meio e, a partir da anilise 
desse novo elemenlo central, outra me- 
iade seri escolhida e igualmente dividi- 
da ao meio, 

O processo se repete at^ que o item 
desejado seja enconlrado. ou, caso con- 
trdrio, at^ que nSo haja mais nenhuma 
possibilidade de dividir a lista ao meio. 

No infcio, o computador n3o procu- 
ra por itens que sejam totalmente equi- 
valentes, mas apenas compara a primei- 
ra letra, vcrificando sc, na ordem alfa- 
betica, ela vem antes ou depols da do 
item desejado. 



PRINT nS 
PRINT n3 



10 CLS : RESTORE 

20 LET t-10: LET b-1 

30 DIM n3(10,10} 

40 FOB C-1 TO 10 

50 BEAD n3(c) 

60 NEXT c 

70 INPUT "NOME DO ANIMAL 

75 LET aS-a5+' 

10-LEN aS) 

BO PAUSE 50 

95 CLS 
100 IF n3(t}-aS THEN 
(t) ,t: GOTO 200 
110 IF nS(B)-flS THEN 
(b) ,b: GOTO 200 
120 LET p-INT (0.5+(t+b)/2) 
130 IF nSCp)-aS THEN PBINT nS 
(P) <p: GOTO 200 
140 IF n3{p)>aS THEN LET t-p 
150 JF nS(P)<aS THEN LET b-p 
160 IF t-b-l THEN PBINT " N 
AO ACHEI": GOTO 200 
170 GOTO 100 
200 IF INKEYS-"" THEN GOTO 

200 
210 BUN 

560 DATA "Antilope", "Cachorro' 
,'Elefante" ."Golf inho" ."Jument 
o' ."Leopardo" , 'Macaco" . 'Peri qu 
ito' . "Bapoaa" . "Sapo" 



fM 



10 CLS 

20 T-10: B-1 

30 DIM N3(10) 

40 FOB C-1 TO 10 

50 BEAD N3(C) 

60 NEXT 

70 INPUT"noBie do aniiral':A3 

80 TlME-0 

90 IF TIME<50 THEN 90 ELSE CLS 

100 IF N5(T)-AS THEN PHINTN5 (T) 

,T:GOTO200 

110 IF NS(B)-AS THEN PBINTN3(B) 

,B:GOT0200 

120 P-INT(.5+(T+B)/2) 

130 IF NS(P)-AS THEN PRINTN3 (P) 

,P:OOT0200 

140 IF N3(PD>AS THEN T-P 

150 IF NS{P)<A3 THEN B-P 

160 IF T-B-1 THEN PRINT' nio 

achei*:GOTO200 
170 GOTO 100 

200 IF INKEY3-"" THEN 200 
210 RUN 

580 DATA ANTILOPE, CACHORBO.ELEF 
ANTE .GOLFINHO, JUMENTO, LEOPABDO, 
MACACO , PER IQUI TO , BAPOSA , SAPO 



aicsi 



10 HOME 

20 T - 10:B - 1 

30 DIM N3(10) 

40 FOR C - 1 TO 10 

SO READ N3 lO 

60 NEXT 

70 INPUT "QUAL ANIMAL 7' 



:A3 



illlMjII 




BO FOB TT - TO 200: NEXT 

100 IF NS(T) - A3 THEN PBINT 

N3(T) ,T: GOTO 200 

110 IF N3(B) - A3 THEN PBINT 

NS(B) .B: GOTO 200 

120 P - INT (.5 ♦ (T + B) / 2) 







130 


IF N9(P) - A3 THEN PRINT 


20 


N3{P) .P: GOTO 200 


30 


140 


IF NS(P) > AS THEN T-P 


40 


150 


IF NS(P) < AS THEN B-P 


50 


160 


IF T - B - 1 THEN PBINT " 


60 




NAO ACHEI": GOTO 200 


70 


170 


OOTO 100 


RO 


200 


GET ZS: IF Z3 - '" THEN 20 


90 







10 


210 


RUN 


), 


580 


DATA ANTILOPE . CACHOBRO , E 

^ 


11 





LKFANTE.aOLFIHHO.JUMENTO.LEOPAR 
DO , MACACO . PERIQUITO , RAP08A, SAPO 



I Q 



10 CLS 

20 T-10:B-1 

30 DIN N3(10) 

40 rOR C-1 TO 10 

50 BEAD H$(C> 

60 NEXT 

70 INPUT' HOHE DO ANIMAL 'lAS 

80 TIHCR-0 

90 IF TIMEtl<50 THEN 90 ELSE CLS 

100 IF NS(T)-A3 THEN PRINT N9(T 

) .T:G0TO 200 

110 IP Na(B)-AS THEN PRINT NS (B 



] .B:aOTO 200 

120 P-INT(.5+(T+8)/2) 

130 IF N9(P]-A3 THEN PRINT H9(P 

) .P:QOTO 200 

140 IF H9(P)>A9 THEN T-P 

150 IF N9(P)<A9 THEN B-P 

160 IF T-B-1 THEN PRINT' NAO 

ACREI-.'OOTO 200 
170 OOTO 100 

200 IF INKEY9-'* THEN 200 
210 BUM 

580 DATA ANTILOPE.CACKORRO.BLEF 
ANTE.OOLFINHO.JUHBNTO.LEOOPABDO 
, MACACO . PERIQUITO , RAPOSA . SAPO 



Como foi dito, nio existem regras 
prdlicas para a obtencao diC maior velo- 
cidade de execucSo em nossos progra- 
mas. Os melhores resultados sSo conse- 
guidos dedicando-se aten?ao especial a 
delaJhesque, isolados.pareccmserinsig- 
nificantes, mas que, juntos, fazem a di- 
feren^a. Alguns desses dctalhes sSo lem- 
brados no quadro da p^gina 932. Ob- 
servando as recomendaffles ali conlidas, 
VOC& cenamente obtcri alguma econo- 
mia dc tempo. Mas nfto se esqueca de 
que, muitas vezcs. a rapidez de urn pro- 
grama precede de uma descoberta indi- 
vidual, resultantc, at* mesmo, de um 
simples acaso. 



^ 
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ASSISTENTI 
IRA © DOS 



Sa voce ja dispoe de urn acionador de 
disquetes mas tern preguica 
de aprender os comandos do sistema 
operacional (DOS), utilize urn 
programa assistente e durma tranquilo. 



Qualquer que seja a aplicagao a que 
se destine o seu microcomputador, con- 
v^m adquirjr urn acionador de disque- 
tes. Desse modo, voce poderd dispor de 
um sistema bem mais confi^vel e rdpi- 
do do que as fitas cassete. 



FUNCOES DO DOS 



Do ponto de vista operacional, con- 
tudo, esse sistema apresenta uma peque- 
na desvaniagem. Com ele, o usudrio e 
obrigado a aprender um niimero adicio- 
nal de comandos, especificos para ope- 
racoes com disquetes. Tais comandos 
fazem parte do chamado Sistema Ope- 
racional de Discos (DOS, sigia decorren- 
le de seu nome em ingles). Eles funcio- 
nam mais ou menos da mesma maneira 
nos diferemes modelos de computador, 
variando apenas a forma com que sao 
escritos, e a sua sintaxe de uso. 

As fun?6es bdsicas de um DOS sao: 

- examinar o conteudo de um disquete 
(catAlogo); 

• copiar um arquivo de um disquete pa- 
ra outro ou fazer uma c6pia com no- 
me diferenlie no mesmo disquete; 

- mudar o nome de um arquivo; 

- apagar um arquivo do disquete; 

- lisiar um arquivo na tela do computa- 
dor ou na impressora; 

- examinar qual o espa^o que esti dis- 



ponivel no disquele; 

- proteger ou desproteger um arquivo 
contra apagamento ou modifica^ao; 

- executar programas em BASIC ou em 

linguagem de maquina etc. 

Nem sempre, contudo, o usu^rio es- 

t& disposto a aprender em detalhe todas 
cssas funfoes. De certo modo, estas ca- 
racterizam uma "linguagem" de coman- 
dos, que em alguns computadores 6 par- 
te das instru?6es do BASIC, enquanto 
em outros ■& um sistema totalmente se- 
parado, do qual o interpretador BASIC 
i apenas um programa a mais. 

A listagem apresentada aqui serve co- 
mo "assistente" para a operafao dos v^- 
rios comandos do DOS; ela dispensa a 
necessidade de aprende-los em detalhe. 
Seu funcionamento se ap6ia em um 
"carddpio" de opcoes, mostrado na te- 
la assim que 6 executado. Escolhendo 
uma das op?oes apresemadas, o progra- 
ma auiomalicamente seleciona e execu- 
ta o comando correspondente do DOS. 
Em muitos cases, seri necessdrio entrar 
informacoes adicionais, tal como o no- 
me de um arquivo. Possiveis erros co- 
metidos pelo usu^rio, como tentar apa- 
gar um arquivo protegido, serao detec- 
tados pelo programa, que exibird na te- 



la a mensagem correspondente. 

Neste artigo abordaremos versSes pa- 
ra OS computadores das linhas TRS-80, 
TRS-Color, MSX, Apple II e TK-2000, 
Os micros da linha Sinclair lamb^m po- 
dem ser conectados a disquetes. ou "mi- 
crodrives", fitas em al^a sem fim, de 
comportamento semelhante aos disque- 
tes; mas como estes perifericos nao sao 
encontrados no pais, deixamos de apre- 
sentar uma versao para eles. 

Digite OS programas a seguir e arma- 
zene-os em um disquete. Para testar as 
op^oes do menu sem correr o risco de 
perder algo importante, copie no disque- 
te alguns arquivos e programas de que 
nao vai precisar, 



10 ON ERROR GOTO 960 

20 GOSUB 950 

30 PRINT:PBINT TAB(IO) 

TENTE D.O.S.' 

35 PRINT 



•ASSIS 



936 
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QUE E UM SISTEMA 



OPERACIONAL DE DISCOS 



FUN COES PRINCIPAIS do DOS 



UMASSISTENTEINTELIGEWTE 



INF0RMAQ6ES ADICIQNAIS 



DETECCAO DEIrROS 



COMO fUNCIONA 



PROGRAMA 



EXIBIgAO DO M ENU 

limitacQes 



40 PRINT 



50 PRINT "<1> Liatar conteudo 

do disco" 

60 PRINT "<2> Apagar um arquiv 

o do disco" 

70 PRINT '<3> Mudar nonie de urn 

arquivo" 

80 PRINT "<4> Executar urn prog 

rama" 

90 PaiNT "<S> FIM DO PROGRAMA 

190 PRINT "-.--^-. ====---- — 

200 PBINTrPHINT "Eacolha uma op 

cao L " ; 

205 XS"INKEyS:IF XS-"" THEN 205 

210 OP-VAL!XS) 

230 ON OP GOTO 250, 300, 350, 

400. 900 

240 GOTO 205 

250 INPUT -DRIVE (0/1) " ;DS 



251 IF DSO-O" AND DS<>"1" THEN 
GOTO 250 

252 GOSUB 950 

255 PRINT TABC10):"C A T A L 

G 0" 

260 PRINT :CKD "D:"H-DS 

270 GOSUB 910: BUN 

300 PRINT: INPUT "Nome do arguiv 

o para apaaar" :NS 

310 KILL NS 



320 PRINTtPRINT "Arquivo ':hS:' 

apagado. " 

330 GOSUB 910:RUN 

350 PRINT:INPUT "Nome do arquiv 

o a ser mudado'jNS 

360 INPUT "Novo nome para o arg 




uivo":N2S 

370 NAME N$ AS N23 

3S0 PRINT: PRINT NS : ' nudado par 

a "iN2S 

390 GOSUB 91D:RUN 

400 PRrNT:INPUT "Nome do progra 

ma ':NS 

410 BUN NS 

900 GOSUB 950 

90S END 

910 PRINT: PRINT; PRINT 

915 PRINT "PRESSIONE QUALQUER ,,, 
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TECLA PAJIA CONTINUAR" 

920 IF INKEY9-" THEN 920 

925 RETURN 

950 CL3:RETUIIN 

960 E-EBA 

965 IF S-51 THEN PRINT "*** ERR 

INTKRHO":OOTO 995 

970 IF E-53 THEN PRINT ■••" ARft 

UIVO INEXISTENTE" : OOTO 995 

990 IF E-56 THEN PRINT •*«« NOM 

E ILEOAL DE ARQUIVO' tOOTO 995 

992 PRINT "••• EBRO DE 8INTAXE" 

995 aOSUB 91D:RUII 



10 ON ERROR OOTO 960 

20 009UB 950 

30 PRINT:PRINT TAB(IO) 

TENTE D.O.S." 

35 PRINT 

40 PRINT "————" 




'ASSIS 



50 PRINT •<!> LISTAB CONTBUDO 

DO DISCO" 

60 PRINT *<?> APAOAR UM ARQUIV 

DO DISCO" 

70 PRINT '<3> MUDAH NOME DE UW 

ARQUIVO" 

80 PRINT "<4> EXECUTAR UM PROO 

RAMA 

90 PRINT -<S> FIM DO PROORAMA 

190 PRINT •-—-—— — — 

200 PRINT:PIIINT 'ESCOLHA UHA OP 

CAO:"i 

205 X8-IHKBT5:IP US'" THEN 205 

210 Or-VhHX9) 

230 ON OP OOTO 250, 300, 350, 

400, 900 

240 OOTO 20S 

250 OOSUB 950 

255 PRINT TABdOJ I'C A T A L 

0- 

260 PRIHT:DIR 

270 OOSUB 910: RUM 

300 PRINT: INPUT ■NOME DO ARQUIV 

PARA APAOAR' I N5 

310 KILL US 

320 PHINT:PaiHT "ARQOIUO "iNSi" 

APAOADO . ' 

330 GOaUB 910: RUN 

350 PRINT: INPUT 'NONE DO ABQUIV 

A SER HUDADO'iNS 

360 INPUT 'NOVO NONE PABA MtO 

UIVO-1N28 

370 NAME N3 AS H28 

380 PRINT:PRINT N$;' HUDADO PAR 

A ■;N28 

390 OOSUB 910:RUN 
400 PRINT: INPUT 'NOME DO PROORA 
!M HA 'tN$ 



410 BUN N8 

900 GOSUB 950 

905 END 

910 PRINT: PRINT: PRINT 

915 PRINT "PRESSIONE QUALQUEH 

TECLA PAHA CONTINUAR" 

920 IF IMKEYS-" THEN 920 

925 RETURN 

950 CLS: RETURN 

960 E-ERR 

965 IF E-51 THEN PRINT '«*« ERR 

INTERNO":OOTO 995 

970 IF E-53 THEN PRINT "*** ARQ 

UIUO INEXISTENTE": OOTO 995 

990 IF E-56 THEN PRINT '*** NOM 

E ILEOAL DE AROUIVO" :GOTO 995 

992 PRINT "'■** ERBO DE BINTAXE' 

995 OOSUB 910:RUH 



10 ON ERROR GOTO 960 

20 GOSUB 950 

30 PRINT:PRINT TAB{10) 

TENTE D.O.S." 

35 PRINT 

40 PRINT •— ■■■•■—■■1 



'ASSIS 



50 PRINT "<1> LlBtar conteddo 

do disco' 

60 PRINT "<2> Apagar un arquiv 

o do dlBCO" 

70 PRINT "<3> Kudar none de u> 

arqulvo" 

80 PRINT ''<4> Executsr um prog 

rama" 

90 PRINT "<5> FIM DO PROORAMA 

190 PRINT --—"""-—— —" 

200 PRINT:PRINT "Escolha uma &p 

t«o : " ; 

205 X3-INKEyS:IF XS-"" THEN 205 

210 OP-UAL(XS) 

230 ON OP GOTO 250. 300, 350, 

400, 900 

240 OOTO 205 

250 OOSUB 950 

255 PRINT TABUO) i "C A T-X L 

0' 

260 PHINTiFILES 

270 GOSUB 910:RUN 

300 PRINT:INPUT "Nome do arquiv 

o para apagar";HS 



310 KILL N3 

320 PRINT:PHINT "Arguivo ';NSi" 

apagado." 

330 GOSUB 910:RUN 

350 PRINT: INPUT "Nome do arquiv 

O 3 ser miidado" ;N$ 

360 INPUT "Novo nome para o arq 

uivo"';N25 

370 NAME N$ AS N23 

380 PRINT: PRINT NS ; ' mudado par 

a "iH2S 

390 ■GOSUB 910:RUN 

400 PRINT: INPUT "None do progra 

ma "!NS 

410 RUN N8 

900 OOSUB 950 

905 END 

910 PRINT: PRINT: PRINT 

915 PRINT "PRESSIONE QUALQUER 

TECLA PARA CONTINUAR" 

920 IF INKEYS-"" THEN 920 

925 RETURN 

950 CLS: RETURN 

960 E-ERR 

965 IF E-51 THEN PRINT '■■• ERR 

INTERNO":GOT0 995 

970 IF E-53 THEN PRINT ""•• ARC 

UIVO INEXISTENTE": GOTO 995 

990 IF E-56 THEN PRINT "•*• NOH 

E ILEOAL DE ARQUIVO" :GOTO 995 

992 PRINT "■** ERRO DE BINTAXE" 

995 GOSUB 910:RUN 



10 ON ERR OOTO 960 

15 LET DS-CHR5(4) 

20 OOSUB 950 

30 PRINT:PRINT TAB{10) i 'ASSIS 

TENtE D.O.S." 

35 PRINT 

40 PRINT •-—————-—" 



50 PRINT "<1> LI8TAR CONTEUDO 
DO DISCO" 
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60 PRINT "<2> 

DO DISCO- 

65 PRINT -<3> 

ABQUIUO" 

70 PRINT "<4> 

RAMA' 

75 PRINT ■<5> 

lUO- 

80 PHINT •<6> 

RQUIVO" 

8S PRINT ■<?> 

uivo- 

90 PRINT ■<8> 
190 PRINT " — 



APAGAR UM ABQUIV 
MUDAR NOME DE UM 

EXECUTAH UM PROG 
PROTEGER UM ARQU 
DESPEtOTEGER UM A 
UEBIFICAR UM ARQ 
flM DO PROGRAMA 



'E3C0LHA UMA OP 



200 PRINT:P[<INT 

CAO : ■ ; 

205 GET X5 

210 LET 0P-VAL(X5) 

230 ON OP GOTO 250, 300, 350, 

400, 450, 500, 550, 900 

240 GOTO 205 

250 GOSUB 950 

255 PRINT TAB(10);'C A T A L 

G 0" 

260 PRINT; PRINT DS; "CATALOG" 

270 COSUa 910:HUN 

300 PRINT: INPUT "NOME DO AHQUIU 

PARA APAGAR- ;N3 

310 PRINT DS: "DELETE "jNS 

320 PRINT.PHINT "ARQUIVO "iNSi" 

APAGADO." 



330 GOSUB 910: RUN 

350 PHINT; INPUT "NOME DO AROUIU 

A SER MUDADE";N$ 

360 INPUT "NOVO NOME PARA AR(, 

UIV0";N2S 

370 PRINT DS;-BENAME 

":N5:"."N2S 

380 PRINT:PRINT N3i* MUDADO PAB 

A -rN2S 

390 GOSUB 910: RUN 

400 PHINT:IWPUT "NOME DO PROGHA 

MA "iNS 

410 PRINT DS:"RUN -;NS 

450 PB1NT:INPUT "NOME DO ARQUIV 

PARA PROTEGER ';N$ 

■460 PRINT D3:"L0CK *;NS 

A70 PRINT:PRINT "ABQUIVO ";N5;" 

PHOTEGIDO." 

-480 GOSUB 910: HUN 

500 PRINT:INPUT "NOME DO ARQUIV 

O PARA DESPROTEGER "iNS 

510 PRINT DSr" UNLOCK "jNS 

520 PRINT:PRINT "ARQUIVO ";N3;" 



DESPftOTEGIDO." 

530 GOSUB 910: RUN 

550 PHINT: INPUT "NOME DO ARQUIV 

PAHA VERIFICAR ";NS 

560 PRINT DS: "VERIFY " ;N5 

570 PHINT:PHINT "ARQUIVO ";N3!" 

COHRETO . - 

580 GOSUB 910:RUN 

900 GOSUB 950 

905 END 

910 PRINT: PRINT: PHINT 

915 PRINT "PRESSIONE RETURN 

PARA CONTINUAR" 



139 
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920 GET X5 

925 RETURN 

95-0 HOHE:HETUHM 

960 LET E-PEEK (2221 

965 IF E=8 THEM PRINT '*** ESBO 

DE E/S":GOT0 995 

970 IF E-6 THEN PRINT ■'**• ARQU 

yo INEXISTENTE" : GOTO 995 

970 IF E=10 THEN PRINT "*«* ftRQ 

UIVO PHOTEGIDO": GOTO 995 

990 IF E-13 THEN PRINT "■■"* TIP 

O ILEGAL DE ARQUIVO" :GOTO 995 

992 IF E-11 THEN PRINT "**• ERR 

DE SINTAXE" 

995 GOSUB 910: BUN 



COMO FUNCIONA 



As linhas 10 a 240 mostram o menu 
na tela. Ele varia conforme o modelo do 
compuiador, pois nem lodas as suas 
J'unfoes sao iguais, ou acessiveis por 
meio de um programa. 

A linha 230 (ON. ..GOTO) desvia o 
programa para o trecho corresponden- 
le a cada fungao. O comando ON ERR 
GOTO logo na primeira linha serve pa- 
ra deleclai erros de processamento de 
um comando do DOS. Caso isso aeon- 
te?a, ele desvia o programa para o tre- 
cho em que sera mostrada uma mensa- 
gem de erro (linha 960 em diante). 

ApOs acionar a fun^ao do DOS que 
foi solicitada. o programa se auto-exe- 
cuta novameme, mostrando a tela de 
opcoes. A unica excecao. em todos os 
microcompLladores, acontece quando 
sc solicita a execu?ao de um outro pro- 
grama: nao hd reiorno automitico ao 
menu inicial, e voce deve execu(a-lo 
mais uma vez, se quiser. 

As linhas 910 e 950 marcam o ini'cio 
de duas sub-rottnas usadas repetidamen- 
te ao longo do programa. A primeira 
(910) serve para colocar uma mensagem 
no video, avisando que o usuario deve 
pressionar a iccia < RETURN > ou 
< ENTER > para limpar a tela e voltar 
ao menu principal (nos micros das linhas 
MSX, TRS-SO e TRS-Color, pode-se 
pressionar qualquer teda). 

A sub-roiina na linha 950, por sua 
vez, e usada apenas para limpar a tela; 
ela foi colocada ai para facilitar a con- 
versao do programa para oulros micros. 
Assim , em vez de ter de alterar todas as 
linhas do programa onde ocorre um 
CLS, ou um HOME (e sao muitas), e 
mais fdcil modificar apenas uma. 

D 

Os micros da linha TRS-Color n3o 
tern um sistema operactonal separado, 

Icomo 6 caso dos modelos das iinhas 
TRS-80 e MSX. Ao se inserir o conec- 



tor do acionador de disquetes na porta 
de cartuchos da maquina, o BASIC ar- 
mazenado na ROM do compuiador fi- 
ca apto para usar os comandos exclusi- 
vos para a operapao do disquete, Esses 
comandos sao poucos, em contraste, 
mais uma vez, com o TRS-80. As ins- 
tru(;oes principals — de apagamento 
(KILL), mudanga de nome (NAME) e 
execu?ao de programas em BASIC, di- 
retamente do disco (RUM) — .coniudo, 
sao identicas ks do TRS-80; por is&o os 
programas para ambas as linhas sao si- 
milares. A unica diferen^a diz respeiio 
ao comando usado para listar o cat^lo- 
go do disquete (DIR). 

Q 

Os micros da linha TRS-80 comam 
com um sistema operacional separado, 
que pode ser invocado fora do BASIC, 
Esse sistema e armazenado nas trilhas 
do meio do disquete, e e carregado au- 
tomaticamente toda vez que o compu- 
iador e inictalizado. Entreianlo, o BA- 
SIC de disco tem alguns comandos se- 
melhanies, em operaijao, aos comandos 
do DOS. Embora em pequeno niimeiOi 
esses comandos sao a base do funciona- 
mento do programa aqui apresentado. 
Os principais sao os de apagamento 
(KILL), mudanga de nome (NAME)_e 
CJiecucao de programas em BASIC, di- 
reiamente do disco (RUN). Eles sao 
ideiiticos aos do TRS-Color; por isso os 
programas para ambas as linhas sao si- 
milares. A linica diferenga diz respeito 
a instrugao usada para listar o caldlogo 
Ido disquete (DIR) no TRS-Color. No 
TR.S-80 6 usado o comando genirico 
CMD, que di acesso direlOj a partir do 
BASIC, a vdrias fun<;5es do DOS. Para 
obter o catdlogo, por exemplo, usa-se 
CMD "0:0" ou CMD "D:i", depen- 
dendo do acionador em que esti o dis- 
quete. Note que o niimero do acionador 
6 perguntado pelo programa. 



m 



Como no caso anterior, os micros da 
linha MSX tern um sistema operacional 
separado, que pode ser invocado fora do 
BASIC. Armazenado nas trilhas iniciais 
do disquete, esse sistema i: carregado au- 
(omaiicamente toda vez que o compu- 
iador e inicializado. Entrelamo, o BA- 
SIC de disco conta com algumas inslru- 
(6es semeihanles, em operagao, aos co- 
mandos do DOS. Essas instriicoes for- 
mam a base do funcionamento do pro- 
grama aqui apresentado. Os comandos 
principais sao os de apagamento 
(KILL), mudanca de nome (NAME)^ 
execugio de programas em BASIC, di- 



retamente do disco (RUN). Eles sao 
identicos aos do TRS-80 e do TRS- 
Color; por isso OS programas para am- 
bas as linhas sao similares. A unica di- 
ferenga lefere-se ao comando que lista 
catilogo do disquete (DIR no TRS- 
Color, CMD no TRS-80). No MSX. es- 
se comando se chama FILES, e.em ope- 
raglo, e equivalenie a inslrugao DIR do 
seu sistema operacional. Os acionado- 
res de disquetes podem ser chamados de 
A ou B. Note que o programa pergunia 
o nome do acionador. O programa uli- 
liza todos os comandos referidos. 
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Assim como os microcompuladores 
da linha TRS-Color, os modelos das li- 
nhas Apple e TK-2000 nao dispoem dc 
um sistema operacional de discos sepa- 
rado do BASIC. Ao ser utilizado com 
disquete, o inlcrprelador de ambas as 
maquinas passa automaiicamente a ter 
acesso aos comandos especificos neces- 
sarios a sua opeiaijao. 

Entretanto. ha um pequeno proble- 
ma: os comandos bisicos, como RUN, 
DELETE, RENAME, LOCK, UN- 
LOCK, VERIFY e CATALOG, so res- 
pondem quando usados de modo dire- 
to (isto ^, fora de um programa). Para 
executd-los a partir de um programa, e 
fiecessario colocar a cadeia de coman- 
dos dentro de um PRINT, o qual deve 
iransmitir antes o caractere ASCII 4; so 
agindolassim almanobra surtira efeito. 

Isso e explorado pelo programa, que, 
ali^s, e o mais extenso de todos, em vir- 
lude da maior flexibilldade do Apple pa- 
ra explorar comandos do DOS a partir 
de um programa em BASIC. 



LIMITACOES 



O programa apresentado atinge seu 
principal objetivo, pois, de faio, per- 
mite ao usuario operar com disquetes 
sem conhecer os comandos adicionais 
especificos. Porem, como todo progra- 
ma que lenta subslituir uma linguagem 
de comandos por um sistema dc esco- 
Iha por carddpios, o nosso "assistente" 
tem algumas limitacoes. Em oulras pa- 
lavras, da forma como esti, ele nao i 
capaz de explorar lodas as possibilida- 
des de uso dos comandos do DOS. Por 
exemplo, nos micros da linha MSX, ele 
nao usa os caracteres ? e ■ para listar 
OS arquivos de um deterrainado (ipo, 
presenles no catdlogo. 

Se voce conhece bem os comandos do 
DOS do seu micro, nao sera difici3 mo- 
dificar programa apresentado, am- 
pliando suas fun^des e utilidade. 
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PROGRAMApAO DE JOGOS 

Nfveis do jogo A Raposa e os Gansos. Rotinas de movimenta?ao 
da raposa e dos gansos. Tabela de posigoes. 

C6DIG0 DE MAQUINA 

Avalanche: os perigos da aventura. Nfveis de dificuldades — 
OS buracos, as cobras e a mar^. Retina de prSmios. 

PROGRAMApAO BASIC 

A fungao VARPTR no TRS-80. Sub-rotina de transferSncia. 

C6pia e impressao da teia. 

PROGRAMAgAO DE JOGOS 

A Aranha Marciana: definigio dos grfificos ^^^^^g 
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